home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / pctecap.arc / LEXINSER.ASM < prev    next >
Encoding:
Assembly Source File  |  1986-03-15  |  384 b   |  17 lines
  1. ; ROUTINE TO INSERT A WORD IN AN ORDERED LIST OF WORDS
  2. ;
  3. lexinsert    proc    far
  4. ;
  5.     push    ax        ; save registers
  6.  
  7.     call    lexsearch    ; search for match
  8.     cmp    al,0        ; already there?
  9.     je    lexinsertexit    ; skip if so
  10.     call    strinsert    ; insert the new word
  11. ;
  12. lexinsertexit:
  13.     pop    ax        ; restore registers
  14.     ret
  15. ;
  16. lexinsert    endp
  17.